home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / GIFVRT.BIN / GIFVERT (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.5 KB  |  68 lines
  1. 0 DV=PEEK(186)
  2. 1 B=.:FORA=49152TO50000STEP20:B=B+PEEK(A):NEXT:IFB<>5698THENLOAD"GIFVERT.MC",DV,1
  3. 10 POKE53280,6:POKE53281,6
  4. 20 PRINT"[147][158][199][201][198] AND '[199]RAPHICS [201]NTERCHANGE [198]ORMAT'"
  5. 30 PRINT"ARE TRADEMARKS (TM) OF [195]OMPU[211]ERVE"
  6. 40 PRINT"[201]NCORPORATED, AN [200]&[210] [194]LOCK [195]OMPANY."
  7. 50 PRINT"[155] [199][201][198][214][197][210][212], BY [210]ANDY [215]EEMS"
  8. 51 PRINTTAB(13)"[210]ANDY[215]18 ([209]LINK)
  9. 52 [153][163]13)"72437,2702 (LENOMPU(null)ERVE)"
  10. 60 [153]"STR$UE TO ITS SIMPLICITY, RIGHT$ AM PLACING THIS";
  11. 70 [153]"FIRST VERSION OF CHR$RIGHT$ASC(null)VAL(null)(null) IN THE PUBLIC"
  12. 80 [153]"DOMAIN.  ATN SHAREWARE VERSION MAY FOLLOW"
  13. 90 [153]"IF RIGHT$ CAN FIND THE TIME AND THERE IS"
  14. 91 [153]"ENOUGH INTEREST."
  15. 95 [153]"RIGHT$NSERT SOURCE DISK."
  16. 100 [133]"VALNTER GG((null)OALA) FILENAME";N$
  17. 105 [139]N$[178]""[167][128]
  18. 110 N$[178]N$[170]",R"
  19. 115 [141] 7000
  20. 120 [160]15:[159]15,DV,15,"I0:"
  21. 130 [141]5000:[139] EN [167] [141] 6000:[128]
  22. 135 [160]2:[159]2,DV,2,N$
  23. 140 [141] 5000:[139] EN [167] N$[178]"GG"[170]N$:[160] 2:[159] 2,DV,2,N$
  24. 150 [141] 5000:[139] EN [167] [141] 6000:[128]
  25. 160 [158] 49152
  26. 170 [160] 2
  27. 180 [141] 5000:[139] EN [167] [141] 6000:[128]
  28. 190 [160] 15
  29. 195 [153]"RIGHT$NSERT DESTINATION DISK"
  30. 200 [133]"VALNTER CHR$RIGHT$ASC FILENAME";O$
  31. 205 [139]O$[178]""[167][128]
  32. 210 O$[178]O$[170]",P,W"
  33. 215 [141]7000
  34. 217 [160]15:[159]15,DV,15,"I0:"
  35. 218 [141]5000:[139]EN[167][141]6000:[128]
  36. 220 [160]5:[159]5,DV,5,O$
  37. 230 [141]5000:[139]EN[167][141]6000:[128]
  38. 240 [153]"PEEKLANK SCREEN (Y/N)  YCMDCMDCMD";
  39. 250 [133]BS$
  40. 260 [141]8000
  41. 270 [139]BS$[178]"Y"[167][151]53265,43:[151]53296,253
  42. 280 [151]56334,0:[158]49155:[151]56334,1
  43. 285 [151]53296,252:[151]53265,59:[151]53280,0
  44. 290 [160]5:[160]15
  45. 300 [161]K$:[139]K$[178]""[167]300
  46. 310 [141] 9000
  47. 320 [151]53280,6:[151]53281,6
  48. 4999 [128]
  49. 5000 [132]15,EN,EM$,ET,ES
  50. 5010 [142]
  51. 6000 [153]EN;EM$;ET;ES
  52. 6010 [142]
  53. 7000 [153]"DEVICE # "DV"CMDCMDCMDCMD";:[133]DV
  54. 7010 [142]
  55. 8000 [151]53265,59
  56. 8010 [151]53270,24
  57. 8020 [151]53272,120
  58. 8030 [151]56576,[194](56576)[175]254
  59. 8040 [151]56576,[194](56576)[175]254
  60. 8050 [158]49158
  61. 8060 [142]
  62. 9000 [151]53265,27
  63. 9010 [151]53270,8
  64. 9020 [151]53272,23
  65. 9040 [151]56576,[194](56576)[176]3
  66. 9050 [153]"LOAD"
  67. 9060 [142]
  68.